10 DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[147]":QQ=RND(-TI)
30 DIMB$(106),C$(106),A$(7,2),S%(8,2),H%(8,2)
32 POKE53281,0:POKE53280,0
34 PRINT"[147][129]          1 0 0 0    [205] [201] [204] [197] [210]
36 [153]"OPEN   BY (null)AREN (null)IDDAUGH AND ATNLAN CHR$ARDNER"
38 [141]60000
40 [151]214,7:[153]:[153]"         CLR(null) (null) ATN STR$ RIGHT$ (null) CHR$ . . ."
41 [139][194](787)[178]253[167]46
42 [158]57812"MB.4000",DV,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
44 [158]57812"MB.C000",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
45 [151]787,253
46 [153]"ON   1CONT.  (null)NE PLAYER AGAINST COMPUTER"
48 [153]"   2CONT.  (null)WO PLAYERS AGAINST EACH OTHER"
50 [153]"   3CONT.  (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)
52 GETK$:IFK$<"1"ORK$>"3"THEN52
54 IFK$="3"THEN2900
56 NP=VAL(K$)
60 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,0:POKE254,0
70 POKE255,0:SYS51462:SYS51459
80 :
90 TE=50759:SP$="[160]                                    ":S=54272
92 FORX=STOS+24:POKEX,.:NEXT:POKES+24,15
100 P1=1:P2=2:CO=1:ZY=1
110 :
120 S%(5,1)=1:S%(5,2)=1
130 FORI=1TO106:READB$(I):NEXT:ZZ=106:GOSUB1150:POKE53280,6
140 SH=48:XP=2:YP=0:GOSUB2220
150 SYSTE,"200",267,25:SYSTE,"200",267,137
160 SYSTE,"0000",136,57:SYSTE,"0000",136,169
170 FORI=1TO2:XX(I)=93:ML(I)=0
180 SL(I)=200:H%(2,I)=1:P(I)=1:M$(I)="000"
190 FORL=1TO6:A$(L,I)=C$(CO):CO=CO+1:NEXT:FORL=1TO6
200 IFLEFT$(A$(L,I),1)<>"3"THEN230
210 LF=VAL(MID$(A$(L,I),2,1)):S%(LF,I)=1:GOSUB1940
220 A$(L,I)=C$(CO):CO=CO+1:GOTO200
230 NEXT:P1=2
240 SH=46:XP=2:YP=0:GOSUB2220:SH=49:YP=14:GOSUB2220
250 NEXT
260 P1=1
270 SH=47:XP=2:YP=14:GOSUB2220:SH=48:YP=0:GOSUB2220
280 A$(7,P1)=C$(CO):GOSUB1130:IFLEFT$(A$(7,P1),1)<>"3"THEN300
290 LF=VAL(MID$(A$(7,P1),2,1)):S%(LF,P1)=1:L=6:GOSUB1940:GOTO280
300 IFP1=2ANDNP=1THEN550
310 IFNP=2THENSYSTE,"HIT ANY KEY TO VIEW CARDS",7*8,104:POKE198,0:WAIT198,1:POKE198,0
320 SYSTE,SP$,16,104:GOSUB1790
330 SYSTE,"(D)ISCARD  (P)LAY CARD  (Q)UIT",4*8,104
340 GOSUB2190:SYSTE,SP$,16,104
350 IFX$<>"P"ANDX$<>"Q"ANDX$<>"D"THEN330
360 IFX$="Q"THEN2080
370 SYSTE,"WHICH ONE (1-7) OR 0 TO END",4*8,104
380 POKE198,0:WAIT198,1:GETY$:SYSTE,SP$,16,104
390 Y=VAL(Y$):REMGETOFFWHICHONE?
400 IFY>7ORY<1THEN330
410 GOSUB1820:IFX$<>"D"THEN430
420 B$(ZY)=A$(Y,P1):ZY=ZY+1:GOSUB700:GOTO650
430 LE$=LEFT$(A$(Y,P1),1):LF=VAL(MID$(A$(Y,P1),2,1))
440 FL=0:IFLE$="4"ANDP(P1)=0ANDLF*25<=SL(P1)ANDML(P1)+LF*25<1001THENFL=1
450 IFFL=1THENFORL=1TOLF:GOSUB1850:NEXT:GOSUB700:GOTO650
460 FL=0:IFLE$="1"ANDP(P2)=0ANDS%(LF,P2)=0THENFL=1
470 IFLE$="1"ANDP(P2)=0ANDS%(2,P2)=0ANDLF=5ANDSL(P2)=200THENFL=1
480 IFFL=1THENH%(LF,P2)=1:ONLFGOSUB1470,1380,1550,1300,1630
490 IFFL=1THENGOSUB700:GOTO650
500 FL=0:IFLE$="2"ANDH%(LF,P1)=1ANDLF<5THENFL=1
510 IFLE$="2"ANDLF=5ANDH%(5,P1)=1ANDP(P1)=0THENFL=1
520 IFFL=1THENH%(LF,P1)=0:ONLFGOSUB1510,1420,1590,1340,1710
530 IFFL=1THENGOSUB700:GOTO650
540 FORA=1TO20:POKE54296,.:POKE54296,15:NEXT:GOTO320
550 Q=0:IFML(P2)-ML(P1)>299THENGOSUB720:GOSUB800:GOSUB890:GOTO970
560 FL=0:IFP(P1)=1ANDML(P2)<701ANDML(P2)-ML(P1)<210THENFL=1
570 IFFL=1THENGOSUB890:GOSUB720:GOTO970
580 FL=0:IFP(P1)=1AND(ML(P2)>700ORML(P2)-ML(P1)>200)THENFL=1
590 IFFL=1THENGOSUB720:GOSUB890:GOTO970
600 FL=0:IFSL(P1)=75ANDML(P2)<801ANDML(P1)-ML(P2)>150THENFL=1
610 IFFL=1THENGOSUB890:GOSUB800:GOSUB720:GOTO970
620 FL=0:IFSL(P1)=75ANDML(P2)-ML(P1)>100THENFL=1
630 IFFL=1THENGOSUB720:GOSUB800:GOSUB890:GOTO970
640 GOSUB800:GOSUB720:GOSUB890:GOTO970
650 IFML(P1)=1000THEN2290:REMWINNER
660 IFP1=1THENP1=2:P2=1:SH=46:XP=2:YP=0:GOSUB2220:SH=49:YP=14:GOSUB2220:GOTO280
670 P1=1:P2=2
680 SH=47:XP=2:YP=14:GOSUB2220:SH=48:YP=0:GOSUB2220
690 GOTO280
700 A$(Y,P1)=A$(7,P1):SH=40:XP=32:YP=11:GOSUB2220
710 RETURN
720 IFP(P2)=1ORQ=1THENRETURN
730 FORY=1TO7
740 LF=VAL(MID$(A$(Y,P1),2,1)):FL=0
750 IFLEFT$(A$(Y,P1),1)="1"ANDS%(LF,P2)=0THENFL=1
760 IFLEFT$(A$(Y,P1),1)="1"ANDLF=5ANDSL(P2)=200ANDS%(2,P2)=0THENFL=1
770 IFFL=1THENH%(LF,P2)=1:ONLFGOSUB1470,1380,1550,1300,1630
780 IFFL=1THENQ=1:RETURN
790 NEXT:RETURN
800 IFP(P1)=1ORQ=1THENRETURN
810 HM=0:FORY=1TO7
820 LF=VAL(MID$(A$(Y,P1),2,1))
830 IFLEFT$(A$(Y,P1),1)="4"ANDLF*25<=SL(P1)THEN850
840 NEXT:GOTO870
850 IFLF*25>HM*25ANDML(P1)+LF*25<1001THENHM=LF:HC=Y
860 GOTO840
870 IFHM=0THENRETURN
880 FORL=1TOHM:GOSUB1850:NEXT:Y=HC:Q=1:RETURN
890 IFQ=1THENRETURN
900 FORY=1TO7
910 LF=VAL(MID$(A$(Y,P1),2,1)):FL=0
920 IFLEFT$(A$(Y,P1),1)="2"ANDH%(LF,P1)=1ANDLF<5THENFL=1
930 IFLEFT$(A$(Y,P1),1)="2"ANDLF=5ANDH%(5,P1)=1ANDP(P1)=0THENFL=1
940 IFFL=1THENH%(LF,P1)=0:ONLFGOSUB1510,1420,1590,1340,1710
950 IFFL=1THENQ=1:RETURN
960 NEXT:RETURN
970 IFQ=1THEN1120
980 FORY=1TO7:LF=VAL(MID$(A$(Y,P1),2,1))
990 IFLEFT$(A$(Y,P1),1)="2"ANDS%(LF,P1)=1THEN1110
1000 NEXT:FORY=1TO7:LF=VAL(MID$(A$(Y,P1),2,1))
1010 IFLEFT$(A$(Y,P1),1)="1"ANDS%(LF,P2)=1THEN1110
1020 NEXT:FORY=1TO7:FORX=1TO7
1030 IFA$(Y,P1)=A$(X,P1)THENNC=NC+1
1040 NEXT:IFNC>2THENNC=0:GOTO1110
1050 NC=0:NEXT:NC=0:FORY=1TO7
1060 IFLEFT$(A$(Y,P1),1)="4"ANDVAL(MID$(A$(Y,P1),2,1))*25<101THEN1110
1070 NEXT:FORY=1TO7:FORX=1TO7
1080 IFA$(Y,P1)=A$(X,P1)THENNC=NC+1
1090 NEXT:IFNC>1THENNC=0:GOTO1110
1100 NC=0:NEXT:NC=0:Y=INT(RND(1)*7)+1
1110 B$(ZY)=A$(Y,P1):ZY=ZY+1
1120 GOSUB700:GOTO650
1130 CO=CO+1:IFCO<>ZZ+1THENRETURN
1140 ZZ=ZY-1:ZY=1:CO=1
1150 SYSTE,"SHUFFLING THE DECK...",72,104
1152 FORI=1TOZZ:R=INT(RND(0)*ZZ)+1
1170 IFB$(R)<>"1"THENC$(I)=B$(R):B$(R)="1":NEXT:SYSTE,SP$,16,104:RETURN
1180 R=R+1:IFR=ZZ+1THENR=1
1190 GOTO1170
1200 DATA4841,1427,2331,3136,2133,4343,4442,1230
1210 DATA1128,2235,2534,4442,4343,2235,1529,4244,4145,1326,4343,4442,2534
1220 DATA2331,1529,4145,4244,4244,4841,2133,1230,3338,2331,4343,4442,2432
1230 DATA1529,2432,2331,2235,4244,4442,4343,4442,4145,4244,1529,1128
1240 DATA2534,3237,1326,2235,4343,4841,4442,4145,1230,4244,2432,3439
1250 DATA2534,2235,1128,4442,4343,2534,2133,4145,4244,4442,4343,2432
1260 DATA2534,2331,2235,1230,1427,2235,1326,2235,2235,4343,4442,2331
1270 DATA2235,2133,1230,4145,4841,4442,4343,2133,2235
1280 DATA4145,2235,2432,2133,4244,4145,4244,4442,4145,1427,2235,2432
1290 DATA4244,4145,2235
1300 REM******FLATTIRE******
1310 GOSUB1380:P(P2)=1
1320 XP=3:YP=3+(P2-1)*14:GOTO10000
1330 :
1340 REM*****FIXTHEFLAT*****
1350 GOSUB1420:P(P1)=0
1360 XP=3:YP=3+(P1-1)*14:GOTO10035
1370 :
1380 REM****REDLIGHT*****
1390 P(P2)=1:FORX=STOS+24:POKEX,0:NEXT:POKES+24,15:P(P2)=1:GOSUB10190
1400 XP=30:YP=2+(P2-1)*14:SH=1:GOSUB2220
1405 FORDL=1TO200:NEXT
1410 RETURN
1420 REM****GRNLIGHT*****
1422 FORAA=1TO4:IFH%(AA,P1)<>0THENRETURN
1423 NEXT
1430 P(P1)=0:FORX=STOS+24:POKEX,0:NEXT:POKES+24,15:P(P1)=0:GOSUB10205
1440 XP=30:YP=2+(P1-1)*14:SH=2:IFSL(P1)=75THENSH=50
1450 GOSUB2220
1455 FORDL=1TO200:NEXT
1460 RETURN
1470 REM****ACCIDENT****
1480 GOSUB1380:P(P2)=1
1490 XP=8:YP=5+(P2-1)*14:GOTO10125
1500 :
1510 REM*****REPAIRS*****
1520 GOSUB1420:P(P1)=0
1530 XP=8:YP=5+(P1-1)*14:GOTO10160
1540 :
1550 REM****NOGAS*****
1560 GOSUB1380:P(P2)=1
1570 XP=8:YP=2+(P2-1)*14:GOTO10055
1580 :
1590 REM*****FILLUP*****
1600 GOSUB1420:P(P1)=0
1610 XP=8:YP=2+(P1-1)*14:GOTO10090
1620 :
1630 REM*****SPEEDLIMIT****
1640 SL(P2)=75:SH=50:XP=30:YP=2+(P2-1)*14:GOSUB2220:POKES+5,0:POKES+6,0
1645 XP=267:YP=25+(P2-1)*112
1650 FORSL=200TO75STEP-5:SL$=MID$(STR$(SL),2)
1655 POKES+1,SL:POKES+4,17:POKES+4,0
1660 IFLEN(SL$)<3THENSL$=" "+SL$:GOTO1660
1670 SYSTE,SL$,XP,YP:SYSTE,"   ",XP,YP
1680 NEXT
1690 SYSTE," 75",XP,YP
1700 RETURN
1710 REM****ENDLIMIT*****
1720 SL(P1)=200:SH=2:XP=30:YP=2+(P1-1)*14:GOSUB2220:POKES+5,0:POKES+6,0
1725 XP=267:YP=25+(P1-1)*112
1730 FORSL=75TO200STEP5:SL$=MID$(STR$(SL),2)
1732 POKES+1,SL:POKES+4,17:POKES+4,0
1740 IFLEN(SL$)<3THENSL$=" "+SL$:GOTO1740
1750 SYSTE,SL$,XP,YP:SYSTE,"   ",XP,YP
1760 NEXT
1770 SYSTE,"200",XP,YP:SH=2:XP=30:YP=2+(P1-1)*14:GOSUB2220
1780 RETURN
1790 REM*****DRAWCARDSHERE*****
1800 XP=2:YP=11:FORI=1TO7:SH=VAL(RIGHT$(A$(I,P1),2)):GOSUB2220:XP=XP+5:NEXT
1810 RETURN
1820 REM*****GETCARDSOFF*****
1830 XP=2:YP=11:FORI=1TO7:SH=40:GOSUB2220:XP=XP+5:NEXT
1840 RETURN
1850 REM*****MILEAGEBOX*****
1860 ML(P1)=ML(P1)+25:M$(P1)=MID$(STR$(ML(P1)),2)
1870 IFLEN(M$(P1))<=3THENM$(P1)="0"+M$(P1):GOTO1870
1880 XP=16:YP=0+(P1-1)*14:T=20:IFRND(1)<.1THENT=57
1882 IFML(P1)=1000THENT=51
1884 FORX=STOS+24:POKEX,.:NEXT
1890 FORSH=TTOT+5:POKE54296,0:POKE54296,15
1900 GOSUB2220:IFT=51THENFORDL=1TO10:NEXT
1910 NEXT:IFT=51THENFORDL=1TO1000:NEXT:GOTO1930
1920 SH=20:GOSUB2220:SYSTE,M$(P1),136,(P1-1)*112+57
1930 RETURN
1940 XP=L*5+2:YP=11:FORT=1TO5:SH=40:GOSUB2220:SH=LF+35:GOSUB2220:NEXT
1950 REM****BLINKCARD****
1960 IFLF=1THENSH=16:XP=3:YP=9+(P1-1)*14:GOSUB2220
1970 IFLF=1THENIFH%(1,P1)=1THENH%(1,P1)=0:GOSUB1510:GOTO2050
1975 REM    IFLF=2THENSYS51459:PRINT"[147]"LF,H%(2,P1),H%(5,P1):STOP
1980 IFLF=2THENSH=17:XP=10:YP=9+(P1-1)*14:GOSUB2220
1990 IFLF=2THENIFH%(2,P1)=1THENH%(2,P1)=0:GOSUB1420
2000 IFLF=2ANDH%(5,P1)=1THENH%(5,P1)=0:GOSUB1710:GOTO2050
2010 IFLF=3THENSH=18:XP=19:YP=9+(P1-1)*14:GOSUB2220
2020 IFLF=3THENIFH%(3,P1)=1THENH%(3,P1)=0:GOSUB1590:GOTO2050
2030 IFLF=4THENSH=19:XP=26:YP=9+(P1-1)*14:GOSUB2220
2040 IFLF=4THENIFH%(4,P1)=1THENH%(4,P1)=0:GOSUB1340:GOTO2050
2050 FORT=1TO50:NEXT
2060 RETURN
2070 :
2080 SYSTE,"ARE YOU SURE YOU WANT TO QUIT [Y/N]",16,104
2082 POKE198,0:WAIT198,1:GETX$
2090 IFX$<>"[217]"ANDX$<>"Y"THENSYSTE,SP$,16,104:GOTO320
2095 SYS51459:PRINT"[147]"
2100 IFML(P1)>ML(P2)THENPRINTSPC(9)"[159][208]LAYER"P1"[159]WAS WINNING.":GOTO2130
2110 IFML(P2)>ML(P1)THENPRINTSPC(9)"[159][208]LAYER"P2"[159]WAS WINNING.":GOTO2130
2120 PRINTSPC(8)"[159][194]OTH PLAYERS WERE TIED."
2130 PRINT""SPC(12)"[158][208]RESS ANY KEY"
2132 POKE198,0:WAIT198,1:POKE198,0
2134 RESTORE:RUN
2190 POKE198,0:WAIT198,1:GETX$
2200 IFX$>"[192]"THENX$=CHR$(ASC(X$)-128)
2210 RETURN
2220 REMPLOTSHP#SHATXP,YP
2230 POKE249,224:POKE250,204
2240 POKE251,0:POKE252,64
2250 POKE253,XP:POKE254,YP
2260 POKE255,SH:SYS51462:AG=3.34
2270 RETURN
2280 :
2290 REMWEHADAWINNER
2300 PRINT"[147]":SYS51459:SH=63:XP=0:YP=0:GOSUB2220:SYS51459
2310 POKE53280,6:GOSUB3000:PRINT"[147]"
2320 SYS51459:SYS51459
2330 RESTORE
2340 RUN
2900 REMRETURNTOLS
2901 POKE56,160:CLR
2910 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
2912 IFER<>63THENPRINT"[147]":END
2914 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
2915 PRINT"RUN"
2916 POKE631,13:POKE632,13:POKE198,2:END
3000 REMANIMATEWINSEQUENCE
3010 V=53248
3020 XP=15:YP=198:POKEV+21,0:POKEV+39,7:POKEV+16,1:POKEV+29,0:POKEV+23,0
3030 POKEV+28,0
3040 POKEV+40,1:POKE1016+52224,4
3050 POKEV,4:POKEV+1,176
3070 FORX=1TO3
3080 GOSUB3150:REMRUN
3090 GOSUB3220:REMJUMP
3100 NEXTX
3110 GOSUB3300:GOSUB10220
3120 SYS51459:POKEV+21,0
3130 RETURN
3150 REMRUN
3160 I=5:GOSUB3360:I=6:GOSUB3360:XP=XP+8
3170 I=7:GOSUB3360:POKE54296,15:POKE54296,0:I=8:GOSUB3360:XP=XP+8
3180 I=9:GOSUB3360:XP=XP+8
3190 I=10:GOSUB3360
3200 RETURN
3220 REMJUMP
3230 I=5:GOSUB3360:XP=XP+8:I=11:GOSUB3360:I=12:GOSUB3360:I=13:GOSUB3360
3240 XP=XP+8:YP=YP-2:I=13:GOSUB3360
3250 I=14:YP=YP-2:GOSUB3360:I=15:YP=YP-2:GOSUB3360:XP=XP+8
3260 I=16:GOSUB3360:I=17:GOSUB3360:XP=XP+8
3270 I=18:GOSUB3360:I=19:GOSUB3150
3280 I=20:GOSUB3360
3290 RETURN
3300 I=3:GOSUB3360:FORDL=1TO200:NEXT
3310 I=2:GOSUB3360:POKEV+1,YP-6:FORDL=1TO200:NEXT
3320 I=1:GOSUB3360:POKEV+1,YP-8:FORDL=1TO200:NEXT
3330 I=0:GOSUB3360:POKEV+1,YP-10:POKEV+16,0:POKEV,XP
3350 RETURN
3360 REMMOVEIT
3380 IFPEEK(53266)>150THEN3380
3390 POKE1017+52224,I
3400 POKEV+2,XP:POKEV+3,YP
3410 POKEV+21,3
3420 RETURN
10000 REMFLATTIRE
10005 POKES,.:POKES+1,12:POKES+5,8:POKES+6,8:POKES+4,129:POKES+4,128
10010 SH=4:GOSUB2220
10015 POKES+7,.:POKES+8,128:POKES+12,34:POKES+13,29:POKES+11,129
10020 FORK1=127TO48STEP-1:POKES+8,K1:FORK2=200TO0STEP-100:POKES+7,K2:NEXT
10025 POKES+11,128-(K1>125):NEXT:POKES+4,.:SH=5:GOSUB2220:POKES+11,.:RETURN
10030 :
10035 REMSPARETIRE
10040 POKES+5,66:POKES+6,.:FORK1=50TO75STEP2:POKES+1,K1:POKES+4,129:SH=4:GOSUB2220
10045 FORD=.TO100:NEXT:POKES+4,128:NEXT:POKES+4,.:SH=3:GOSUB2220:RETURN
10050 :
10055 REMOUTOFGAS
10060 CC=1:SH=7
10065 POKES+5,.:POKES+6,.:FORK1=200TO20STEP-2:POKES+1,K1:POKES+4,17:POKES+4,.
10070 CC=CC+1:IFCC=15THENCC=1:GOSUB2220:SH=SH+1
10075 NEXT
10080 RETURN
10085 :
10090 REMGAS
10095 CC=1:SH=11
10100 POKES+5,.:POKES+6,.:FORK1=20TO200STEP2:POKES+1,K1:POKES+4,17:POKES+4,.
10105 CC=CC+1:IFCC=15THENCC=1:GOSUB2220:SH=SH-1
10110 NEXT
10115 RETURN
10120 :
10125 REMACCIDENT
10130 :
10135 POKES+5,9:POKES+6,.:POKES+1,3:POKES+2,.:POKES+3,.:FORK2=100TO50STEP-.33
10140 POKES,K2:POKES+4,81:K2=K2:POKES+4,80:NEXT:X=ATN(ATN(4)):SH=14:GOSUB2220
10142 SH=15:GOSUB2220
10145 POKES,.:POKES+1,5:POKES+5,12:POKES+6,12:POKES+4,129
10150 FORDL=.TO2000:NEXT:POKES+4,.:RETURN
10155 :
10160 REMREPAIRS
10165 :
10170 POKES+5,6:POKES+6,6:POKES+14,.:POKES+15,99:POKES,.:POKES+1,55
10172 SH=14:GOSUB2200
10175 FORK1=.TO250:IFRND(1)<.1THENPOKES+4,19:POKES+4,18
10180 NEXT:POKES+4,.:FORDL=.TO200:NEXT:SH=13:GOSUB2220:RETURN
10185 :
10190 REMSTOP
10195 POKES+5,9:POKES+6,9:POKES,.:POKES+1,32:POKES+4,17:POKES+4,16:RETURN
10200 :
10205 REMROLL
10210 POKES+5,8:POKES+6,8:POKES,.:POKES+1,64:POKES+4,17:POKES+4,16:RETURN
10215 :
10220 REMCHEER
10222 FORX=STOS+24:POKEX,.:NEXT:POKES+24,15
10225 POKES+5,0:POKES+6,252:POKES+11,0:POKES+12,252:POKES+19,0:POKES+20,252
10230 POKES+4,129:POKES+11,129:POKES+18,129
10235 POKES+1,100:POKES+8,100:POKES+15,200
10240 FORDL=0TO2800:NEXT
10245 POKES+4,128:POKES+11,128:POKES+18,128:FORDL=1TO1500:NEXT
10250 POKE54296,0
10255 RETURN
20000 OPEN15,8,15,"S0:1000 MILER":CLOSE15:SAVE"1000 MILER",8:END
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="[205]ILLE [194]ORNES"
60040 B9$(1)="BY [203]AREN [205]IDDAUGH & [193]LAN [199]ARDNER"
60050 B9$(2)="[214]2.0 ([195])1991 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #88"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN